home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / batch / ebl / batdoc.bat < prev    next >
DOS Batch File  |  1990-03-04  |  19KB  |  506 lines
  1. bat * Loading HELP and DOCUMENTATION ..... (Non-IBM systems, read NOTE below)
  2.  
  3. *           Written 10/5/83 through 01/15/90
  4. *   (c) Copyright 1983 to 1990 by Seaware Corp. all rights reserved.
  5. *    This batch file REQUIRES EBL PLUS for proper execution!
  6.  
  7.          **** NOTE! NOTE! NOTE! NOTE! ****
  8.  RAM    |* <-----Change 'RAM' to 'BIOS' if PC isn't 100% IBM Compatible!
  9.  
  10.  if %G = .goto. then %G = | goto -%F
  11.  else %F =
  12.  else goto -line0
  13.  
  14.  
  15. -header * Routine prints general purpose header for help text
  16.     stack.purge            |*  remove any pre-typed keystrokes.
  17.     %n = %i $ 1 ( %i # - 2 ) & . & ( %i $ ( %i # - 1 ) 2 ) |* extract section # from page #
  18.     color( white on black )
  19.     cls
  20.     color( white on cyan  )
  21.     window( 1, 1, 79, 3, Combo)
  22.     begtype
  23.  \%H                     Page \%n
  24.  
  25. \07    Press:  PGDN for next page,   PGUP for prev page,  HOME for main menu.
  26. end
  27.     color( white on black)
  28.     colorchar ~ as color(yellow on black)
  29.     window( 1, 5, 79, 25, Combo)
  30.     return
  31.  
  32. -scroll * Routine accepts key for scrolling help text
  33.     %e = 0
  34.     inkey %k
  35.     if %k = KEY("Ctrl-C") then goto -opt0
  36.     if %k = KEY(Esc)  %i = 0      | goto -line0
  37.     if %k = KEY(Home) %i = 0      | goto -line0
  38.     if %k = KEY(Pgup) %i = %i - 1 | cls | %F = line%i | goto -%F
  39.     if %k = KEY(Pgdn) %i = %i + 1 | cls | %F = line%i | goto -%F
  40.     goto -scroll |* ignore any other key.
  41.  
  42. -line1405
  43. -line099
  44. -line0
  45.     %e = 0
  46.     color white on black
  47.     cls begtype
  48. \1F╔════════════════ BATDOC ═══════════════════╗\07       \17┌─────────────────────────┐\07
  49. \1F║     Menu driven HELP and DOCUMENTATION.   ║\07       \17│ User supported software │\07
  50. \1F╙───────────────────────────────────────────╜\07       \17│      by        │\07
  51.                              \17│              │\07
  52.     \4fGENERAL:\07                       \17│ Seaware Corp.        │\07
  53. \0e 1.        Introduction and how to use this Help.   \07   \17│ P.O. Box 1656        │\07
  54. \0e 2.        The user supported concept & ASP.         \07   \17│ Delray Beach, FL 33444    │\07
  55. \0e 3.        BAT-BBS information. On-line users forum.\07   \17│ 407/392-2046        │\07
  56. \0e 4.        What EBL is... an introduction!         \07   \17│             │\07
  57. \0e 5.        EBL PLUS: The inside story!          \07   \17│ Order your registered    │\07
  58.                              \17│ copy for $79 + $3 s/h   │\07
  59.      \4fThe EBL PLUS Language\07               \17│ from us directly or our │\07
  60. \0e 6.        Showing things on the display.         \07   \17│ order line 800/634-8188 │\07
  61. \0e 7.        Reading data from users.             \07   \17│ (MC/Visa welcome)    │\07
  62. \0e 8.        Controlling program flow             \07   \17│             │\07
  63. \0e 9.        Using the keyboard stack.             \07   \17│ Please copy and share    │\07
  64. \0e 10.     Sensing program's results.               \07   \17│ BAT.COM, BATDOC.BAT,    │\07
  65. \0e 11.     Assignment statements.             \07   \17│ and BATDEMO.BAT for    │\07
  66. \0e 12.     Debugging aids.                 \07   \17│ non-commercial uses    │\07
  67. \0e 13.     Extended functions.              \07   \17│ only.            │\07
  68. \0e 14.     Additional information.             \07   \17└─────────────────────────┘\07
  69.  
  70. \0e X.        eXit.                     \07
  71.  
  72.     Select the starting topic and press ─┘
  73. END
  74.  
  75. -entry0
  76.     %o =
  77.     if left(%F,3) = "opt" then field( ( ( %F $ 4 ) + 1 ) )
  78.     %A = Select( color( yellow ))
  79.     if %R > 15 then goto -entry0
  80.     if %A = Enter then %F = "opt" & %R | goto -%F
  81.     if %A = ESC   then goto -opt0
  82.     if Length(%A) > 1 then beep
  83.     goto -entry0
  84.  
  85. -opt15    ********** Display final EXIT window ***********
  86. -opt0    color yellow on black  |* Setup the window contents
  87.     locate 1 23
  88.     type " 0.      Exit.                                    "
  89.     color white on blue
  90.     window( 18, 13, 48, 20)
  91.     type "Ready to leave on-line help!"
  92.     color Cyan on blue
  93.     type "Make selection & press ─┘"
  94.     type
  95.     colorchar . as color( yellow on blue)
  96.     type ". Exit . . Demo . .Return."
  97.     colorchar
  98.     %A = "" | %F = ""
  99.         ** Now actually do the bouncing bar menu **
  100. -End1    type " Exit to DOS               " | If %A = Enter then exit
  101. -Endit    %A = select( color( yellow on blue), color( black on white ), Arrow)
  102.     if %A = Esc then goto -line0
  103.     goto -End%R
  104. -End2    type " Demonstrate other features" | If %A = Enter then stack "BATDEMO" |exit
  105.          else goto -endit
  106. -End3    type " Return to on-line help    " | If %A = Enter then goto -line0
  107.          else goto -endit
  108.  
  109. -line100 *************** Begin various chapters to show ****************
  110. -opt1    %h = INTRODUCTION | %i = 100 | call -header
  111.     begtype
  112.     This program will provide you with help information on the use of
  113. the EXTENDED BATCH LANGUAGE PLUS.  It is designed to allow for
  114. easy access and retrieval of information that would be harder to find
  115. by more conventional means.
  116.  
  117.     The information is broken up into multiple sections.  Each section
  118. may have several pages.  To access each page in order, just keep
  119. pressing the PGDN key.    At the top of your screen is the name of the
  120. section which you are in and the page number.
  121.  
  122. ~Note:~
  123.  
  124.     If you wish to directly enter another section now, press the ~HOME~
  125. key to return to the main menu, enter the proper ~section number~ and
  126. press the ~─┘~ key.
  127.  
  128. end
  129.      goto -scroll
  130. -line101 call -header | begtype
  131. While in any of these sections, there are just three keys needed:
  132.  
  133. PGDN -    This key will advance to the next page of any section. If
  134.     there are no more pages in the section, then it will advance
  135.     to the next section.
  136.  
  137. PGUP -    This key will back up to a previous page within a section.
  138.     If there are no more previous pages within a section, it
  139.     will backup to the previous section.
  140.  
  141. HOME or ESC - Either of these keys will return directly to the
  142.     main menu. From the menu, any section can be looked at
  143.     directly by entering the section number and pressing ─┘.
  144. end
  145.     goto -scroll
  146. -line199 %i = 102
  147. -line102 call -header | begtype
  148.   There are several sections where you will be given questions and answers.
  149. If you would like to peek and see answer without specifically answering it,
  150. you can press the space bar to reveal the answer letter by letter.
  151.  
  152.     One interesting facet you should know while using this on-line help
  153. and documentation is that you are using the EXTENDED BATCH LANGUAGE
  154. program to display and control these menus.
  155.  
  156.     Never before has a batch language been so powerful on the IBM
  157. personal computer as to be able to provide a facility like this.  In
  158. the following pages of description, we hope that you will see, as we
  159. did, that this program has extraordinary capability which does much
  160. more than just expand the capability of DOS.  In fact, it gives new
  161. power to your system by providing capabilities never before possible.
  162. end
  163.     goto -scroll
  164. -opt2
  165. -line103 %i = 200
  166. -line200 %H = "The User Supported Concept & ASP" | call -header | begtype
  167.  
  168.  ╓─                                     ─╖
  169.  ║      The license fee for Extended Batch Language is $79 + $3 s/h      ║
  170.  ║                                      ║
  171.  ║ You are encouraged to copy and share BAT.COM, BATDOC.BAT, and      ║
  172.  ║ BATDEMO.BAT for non-commercial purposes only. You must not modify      ║
  173.  ║ any of these files or make a profit from their distribution.       ║
  174.  ║                                      ║
  175.  ║ In appreciation of your support, you will be provided with many more   ║
  176.  ║ powerful extensions to the language (including source code), examples, ║
  177.  ║ and detailed documentation. All registered users can also access the   ║
  178.  ║ BAT-BBS, a hot-line for assistance, tips, and updates.          ║
  179.  ║                                      ║
  180.  ╙─     (c) Copyright 1982 through 1990 by Seaware Corp.         ─╜
  181.               All rights reserved.
  182.  
  183.   Seaware Corp.                            407/392-2046
  184.   Post Office Box 1656                           800/634-8188
  185.   Delray Beach, FL 33444
  186. end
  187.     goto -scroll
  188. -line201 call -header | begtype
  189. When you order EBL-PLUS, you will receive:
  190.  
  191.  ■ A detailed users guide.  This hardcopy manual has about 250 pages of
  192.                 descriptions, examples, useful utilities, and
  193.                 tips on this program's use.
  194.  
  195.  ■ The EBL-PLUS Diskette    Containing the latest program version,
  196.                 useful utilities, help files, and examples.
  197.                 You also receive our "Executive Menu Facility"
  198.                 to get started using EBL with zero effort.
  199.  
  200.  ■ 6 months of free support:
  201.      o    BAT-BBS         An on-line forum for user's ideas, tips,
  202.                 programs, and assistance.
  203.  
  204.      o    Technical Hotline   Phone us if you experience problems.
  205.  
  206.      o    "The EBL User"      Our Newsletter provides information, tips, and
  207.                 and ideas on how to apply EBL-Plus to your needs.
  208. end
  209.      goto -scroll
  210. -line202 call -header | begtype
  211.  
  212. An Extended support subscription is available for a nominal fee.
  213.  
  214. All users are invited to use the BAT-BBS, (See next section for more
  215. information).  Our users have signed on thousands of times and testified
  216. that this service has helped make Extended Batch Language-PLUS one of their
  217. best supported programs on their system.
  218.  
  219. The concept of excellent user support is buried deep in our roots.  Much of
  220. our philosophy was founded by Andrew Fugleman at Headlands Press, Inc.    I
  221. would like to thank Andrew for his inspiration and help.  Because I feel
  222. that good software should have someone standing behind it, we at Seaware
  223. want to put your patronage directly into support for you as our thanks of
  224. your support of us.  You will find it well worth it.
  225.  
  226.      Seaware Corp. ≡≡≡≡ Post Office Box 1656 ≡≡≡≡ Delray Beach, FL 33444
  227.            ≡≡≡≡     800/634-8188     ≡≡≡≡
  228. end
  229.      goto -scroll
  230. -line299 %i = 203
  231. -line203 %H = "The User Supported Concept & ASP" |call -header | begtype
  232. Seaware is a member of the Association of Shareware Professionals, a
  233. non-profit group dedicated to promoting the shareware concept
  234. (try-before-you-buy software) as a unique marketing alternative to
  235. traditional retail distribution.  We agreed to do our best to handle
  236. customer complaints when we joined ASP.
  237.  
  238. We're committed to solve your problems quickly, and to your liking.  But
  239. if you feel like you got the short end of the stick, you can take your
  240. complaint to the ASP Ombudsman.  We'll abide by the Ombudsman's final
  241. decision on your matter, no matter what the outcome.  You have our word
  242. on it.
  243.  
  244. ASP wants to make sure that the shareware principle works for you.  If
  245. you are unable to resolve a shareware-related problem with an ASP member
  246. by contacting the member directly, ASP may be able to help.  The ASP
  247. Ombudsman can help you resolve a dispute or problem with an ASP member,
  248. but does not provide technical support for members' products.  Please
  249. write to the ASP Ombudsman at P.O.  Box 5786, Bellevue, WA 98006 or send
  250. a Compuserve message via easyplex to ASP Ombudsman 70007,3536".
  251. end
  252.     goto -scroll
  253. -opt3
  254. -line204 %i = 300
  255. -line300 %H = "BAT - BBS" | call -header | begtype
  256.  
  257. One of the special services we provide to EBL PLUS users
  258. is through a communication medium called "BAT-BBS". This is
  259. a direct link from you to other users, as well as Seaware.
  260.  
  261. The following list shows the many things that
  262.  
  263.     BAT-BBS can provide .  .  .
  264.  
  265. end
  266.     goto -scroll
  267. -line301 call -header | begtype
  268. FOR USERS WITH A MODEM:
  269.  
  270.     * Receive program updates as soon as they are available!
  271.  
  272.     * BAT-BBS is a hotline for your questions!
  273.  
  274.     * Directly access our computer at Seaware via phone.
  275.  
  276.     * It will be ready to give helpful ideas.
  277.  
  278.     * Programs and Utilities are available to download.
  279.  
  280.     * Users are welcome to upload their programs/ideas.
  281.  
  282.     * Tips and techniques are on-line.
  283.  
  284.     * Converse with other users and program author via
  285.         electronic mail.
  286. end
  287.     goto -scroll
  288. -line302 call -header | begtype
  289.  
  290. IF YOU DON'T HAVE A MODEM:
  291.  
  292.     * You can still phone the BAT-BBS if you wish to
  293.       have your questions answered via voice.  A
  294.       recorder will take your message.
  295. end
  296.     goto -scroll
  297. -line399 %i = 303
  298. -line303 call -header | begtype
  299.  
  300. You can access the bulletin board service by using any 300 baud to 2400
  301. baud modem with your computer.    You can use 8,N,1 or 7,E,1 protocols.
  302.  
  303. You will also need a communication program such as PROCOMM, CROSSTALK,
  304. QMODEM, or SmartCom.  Contact your local computer store if you need more
  305. information or help with communication equipment or software.
  306.  
  307. Service is available 24 Hours a day.  Your personal password will be
  308. supplied when you register.
  309.  
  310. end
  311. goto -scroll
  312. -opt4
  313. -line304 %i = 400
  314. -line400 %H = "Introduction" | call -header | begtype
  315.   EBL is short for Extended Batch Language.  EBL PLUS is a powerful
  316. productivity tool for the IBM Personal Computer.  It represents a
  317. significant advance in providing a comprehensive yet easy to learn and use
  318. facility for controlling tasks you give your computer.    It can even give
  319. you on-line documentation SUCH AS THIS!
  320.  
  321.   EBL is a command programming language.  It is a high level language that
  322. can be used as a direct replacement or in conjunction with DOS batch files.
  323. It can operate with IBM PC-DOS versions 2.0 through 4.x and OS/2 1.x real
  324. mode.  Compared with standard PC-DOS batch files, EBL has superior control
  325. structures, string handling, and user interfaces.  It also has tracing
  326. facilities, and is easy to learn and use.  Many aspects of the language are
  327. like BASIC.  Users of VM/370 will also find it similar to EXEC2.  It seems
  328. that both "end users" and programmers find BAT a simple and effective
  329. language.
  330.  
  331. end
  332.     goto -scroll
  333. -line401 call -header | begtype
  334. With Extended Batch Language, you can have:
  335.  
  336. -    Better control of messages to the screen
  337.  
  338. -    Accept responses from the user and create responses to programs
  339.  
  340. -    String handling operations (substring, length, etc.)
  341.  
  342. -    Arithmetic expressions and assignments
  343.  
  344. -    Comparisons and program return codes
  345.  
  346. -    Search for files or tell if they exist
  347.  
  348. -    Complete freedom to mix DOS and BAT commands within the same control file
  349.  
  350.  
  351. Let's look at how it measures up to today's DOS......
  352. end
  353.     goto -scroll
  354. -line402 call -header | begtype
  355. Function       DOS 2.0 to 4.x      Extended Batch Lang.
  356. ----------       --------------      --------------------
  357. BEEP                       X
  358. CALL/RTN           Limited           X
  359. CLS               X           X
  360. BEGSTACK                   X
  361. BEGTYPE                    X
  362. EXIT               X           X
  363. GOTO               X           X
  364. IF               Limited           X
  365. INKEY/READ                   X
  366. READSCRN                   X
  367. STACK                       X
  368. TYPE               X           X
  369. TRACE                       X
  370. Assignments                   X
  371. Global Variables               X
  372. Return Codes           X           X
  373. Windows                    X
  374. end
  375.     goto -scroll
  376. -line403 call -header | begtype
  377.   As you can see from the previous chart, EBL PLUS has more
  378. power and enhanced capabilities than any version of DOS!.  This
  379. program uses these capabilities to solve common problems for......
  380.  
  381.   The system programmer - who needs to do long sequences of tasks between
  382. linker, compilers, debuggers, and editors.  He can now create an
  383. intelligent link between these programs.  For instance, he may wish to do a
  384. link depending on if the previous compile was successful.  He can also
  385. respond automatically from a keyboard "stack" into various utilities.
  386.  
  387.   The secretary - who has several types of tasks to perform (word
  388. processing, accounting packages, etc) and requires a simple way of changing
  389. from one type of task to another, perhaps with optional help text.
  390.  
  391.   The student - who wishes to go from one game to another without having to
  392. learn the system commands required to make each available.
  393.  
  394.   Testers - who wish to automate long, boring tests and procedures on the
  395. personal computer. An excellent tool for a manufacturing line.
  396. end
  397.     goto -scroll
  398. -line499 %i = 404
  399. -line404 call -header | begtype
  400.  
  401.     The effect of using EBL is to put "covers" on the programs and system
  402. that it controls.  In UNIX they call it shells, in VM they call it EXECs,
  403. but to you it simply makes things friendly.  Described in these pages is a
  404. solution to batch files through the use of Extended Batch Language.  A
  405. friendly interface to you can now be easily created.
  406.  
  407.   Once you have looked over the descriptions of each command, browse
  408. through the BATDEMO.BAT file and look at the commands in operation.  By
  409. trying out some sample programs, you should be able to gain a full
  410. understand of how to write some powerful batch files by using Extended
  411. Batch Language.
  412.  
  413.  
  414.  
  415. Copyright (c) 1982 to 1990 by Seaware Corp.           Program by
  416. All Rights reserved by Seaware Corp.               Frank Canova
  417.  
  418. end
  419.      goto -scroll
  420. -opt5
  421. -line405 %i = 500
  422. -line500 %H = "EBL PLUS: The inside story!" | call -header| begtype
  423. We threw the book at it!  Almost everything you could possible have is now
  424. in Extended Batch Language PLUS.  We took time in getting everyone's
  425. suggestions into it, and used very little memory in doing it.
  426.  
  427.      *     Menus are  easy to create.  Just use the "Executive Menu
  428.      Facility" to create customized menus the way YOU want to
  429.      see  them.  This  automatic  procedure,  written in EBL,
  430.      will create a    custom    menu  without ever having to know
  431.      any  details  about  the  EBL    Language or batch  files.
  432.      Using your PC couldn't be easier.
  433.  
  434.      *     Complete freedom with    all variables.    Strings can be up
  435.      to 255 characters mixed  case, numbers to 19 digits.  If
  436.      the built in  variables  aren't enough for you, you  can
  437.      now have as many as you want!    Reserve from 0 to  64K of
  438.      memory  for  "extended  variables"  that  can  have long
  439.      descriptive names, do indexing, create arrays, and more.
  440.      For floating point arithmetic?  Just load  the  optional
  441.      float point math extensions!
  442. end
  443.     goto -scroll
  444. -line501 call -header | begtype
  445.      *     Extended functions give you  additional  power where you
  446.      need    it.  Intended  for  programmers  needing  special
  447.      capabilities,    several types of functions are available:
  448.      DOS  support (CHDIR,  MKDIR,  REBOOT), low  level system
  449.      support  (PEEK,  POKE,  INT86), string  support  (STRIP,
  450.      LOWER, UPPER), math support (FLOAT, INT, FRAC), and MUCH
  451.      more!
  452.  
  453.      *     Add your own functions to EBL.  If  you  have additional
  454.      requirements for the EBL language,  you  can create them
  455.      using    MASM,  C,  Pascal,  etc.  The    source    code  for
  456.      Seaware's  extended functions (written  in Turbo Pascal)
  457.      is provided as an example  to registered users  (limited
  458.      time offer).
  459.  
  460.      *     Full support for many more environments like PC Network,
  461.      TopView, Windows, DESQview and of course DOS 2 to DOS 4.
  462.      Now EBL Plus even supports OS/2!
  463. end
  464.     goto -scroll
  465. -line599 %i = 502
  466. -line502 call -header | begtype
  467.      *     File I/O is  easy within EBL PLUS. Use it to  setup
  468.      printers,  keep  configuration  information,  initialize
  469.      programs, or even create other batch files!
  470.  
  471.      *     Error recovery is now available  within batch files!  In
  472.      cases where  an error    is  detected  while the EBL batch
  473.      file  is  running,  you  can  now  include a  routine to
  474.      recover gracefully from the problem.
  475. end
  476.      goto -scroll
  477.  
  478. -on.error-
  479.     %e = %e + 1 | if %e > 2 then %L = ? | skip 4
  480.     if %R <> 6 then skip 7
  481.     %G = .goto.
  482.     color 8F | type "Loading part 2 ..." %G %F
  483.     leave
  484.     batdoc2
  485. bat *
  486. bat beep type "ERROR! BATDOC2.BAT overlay is missing!" | exit
  487. bat exit
  488. begtype
  489.  
  490.      Unexpected error \%S%R in line \%S%L !
  491.  
  492.      This batch file was error free when it was distributed
  493.      by Seaware. An error indicates that it was most likely
  494.      modified by someone improperly. To get an updated demo
  495.      diskette send $10 to Seaware directly or call 800/634-8188
  496.      or 407/392-2046.
  497.  
  498.  
  499.             Seaware Corp.
  500.              Post Office Box 1656
  501.             Delray Beach, FL 33444
  502. end
  503. %G =
  504. %E = 0
  505. -end%R exit
  506.